Function to calculate the variance of a real array
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(inout), | dimension(:) | :: | a |
A real array |
A real variable with the calculated variance
function variance(a) result(v) !============================================================================================= !! Function to calculate the variance of a real array real(kind=wp),dimension(:),intent(inout) :: a !! A real array real(kind=wp) :: v !! A real variable with the calculated variance real(kind=wp),dimension(size(a)) :: a2 ! a2=a**2; v=mean(a2)-(mean(a))**2; ! end function variance